#!/usr/bin/perl
use strict;
use SMS::Dumper;

print "$_\n" for dump_ud(pack "H*", 
    "0605041582158230FFFFFF0A00480E01000000000000000000000000000000000000000000000000000000001800000000000000061BC1E799C0EDB180067B6036DB018DB18000DB61F6DBC1EDB18000DB61B6D8C06DB180007B60E79B81CCF1800000000600000031800000000618000C37E000000000000000000000000000000000000000000000000000000000"
);
print "---\n";
print "$_\n" for dump_ud("\x00Je bericht is niet herkend. Begin het bericht met het juiste keyword. Bijvoorbeeld: Aanmelden? Sms dan RING ON. Afmelden? Sms RING STOP");

print "---\n";
print "$_\n" for dump_ud("\x00Very simple text message with null UDH :)");
print "---\n";
print "$_\n" for dump_ud(pack "H*", 
    "06050415810000024A3A51D195CDD004001B20550590610560558550548540820849900000"
);
print "---\n";
print "$_\n" for dump_ud(pack "H*", 
    "06050415810000034A443A5C018538013805380D381D382001880400B7205D85D85D84D8820C38C20C4956208312558820C49561961961A61C61A61A61A61562083124D8820C49762083125D8820C497615615617615617617617613620830E308312558820C4956208312558658658698718698698698558820C49362083125D8820C49762083125D8558558000"
);
print "---\n";
print "$_\n" for dump_ud(pack "H*",
    "060504158300003000480E01000000000000000000000000000000000000000079041000000000000085041000000000000081041000000000000081041038F38000000081041045144000000081041045144000000081041045144000000085041045144000000079F41F38F38000000000000000100000000000000001E00000000000000000000000"
);
print "---\n";
print "$_\n" for dump_ud(pack "H*",
    "06050423F40000424547494E3A56434152440D0A56455253494F4E3A322E310D0A4E3A536D6974683B4D696B650D0A54454C3B505245463A2B35353531323334350D0A454E443A56434152440D0A"
);
print "---\n";
print "$_\n" for dump_ud(pack "H*",
    "06050423F50000424547494E3A5643414C454E4441520D0A56455253494F4E3A312E300D0A424547494E3A564556454E540D0A4445534352495054494F4E3A5374656572696E672047726F7570206D656574696E6720696E20506F7274616C0D0A445453544152543A3230303030393036543130303030300D0A4454454E443A3230303130393036543132303030300D0A454E443A564556454E540D0A454E443A5643414C454E4441520D0A"
);
print "---\n";
print "$_\n" for dump_ud(pack "H*",
    "060504158A0000300000045465737402010000481C01666666666666666666999999999999999999800000000000000001400000006000E000024000000E900310000280000031080CF3B801800000400411044401400000FFFE2F8B12024000000000538CAA0280000000006289C4018000000000414140014000000000014280024000200000014280028001F0000000A28001800FFE000000A500015FFFFFFFFFFEA57FFA400AAA0000005500028201500440015D08A1881024800040FF0201404100010003ABE00244000008200D55588280101440001AAAAC0180000000003555560140010000806AAAAB02400000000055555502800000000000000001999999999999999999666666666666666666"
);
print "---\n";
print "$_\n" for dump_ud(pack "H*",
    "060504158A0000300400100053004D005300200054006500730074030090024A3A6589C9A585B989BDC9D40400C920A2AC22D49C81A61A428AB08B52720698690A26C49C69A8186184289B1271A6A0618610A2AC22D49C81A61A428AB08B52720698692698A22C26C2A826C22C49A2106186186288B09B0AA09B0AA09B0AB49C12718618718A22C26849C6289A12718A26849C61A6288B09B0AA09B0AA08B0AA52698A22C26C2A826C22C49A200006010000481C0180000BFFFFFFD00001410012000000480082210022FFFFFF44008411FC42800001423F88090082BFFFFD410090050102A000054080A0000002AFFFF5400000000002A80015400000009802ABFFD5403F80012402AA0055402480112402AAFF55402480392402AA815540208054C802AABD55402080100002AAA555400000100002AAA555400000110402AABD55401300110402AA8155402480112402AAFF55402480012402AA005540248001FC02ABFFD5401900000002A80015400000000002AFFFF5400000050102A000054080A0090082BFFFFD41009011FC42800001423F88210022FFFFFF44008441001200000048008280000BFFFFFFD00001"
);
print "---\n";
print "$_\n" for dump_ud(pack "H*",
    "0605040B8423F0170601AE03056A0045C611033631303240626C696E636B2E636F6D000C0336322E3134382E3137362E33322F62696E2F6D6D632F6173736C696B65746861743F73657373696F6E3D3030303030303030303030303030303030303030303030303030303030303030000103617373206C696B652074686174000101"
);
print "---\n";
print "$_\n" for dump_ud(pack "H*",
    "060504C34D000001016A00CF10034150504C49434154494F4E00018E0F034150504944001103772D6E6F6B69612D706F632D67726F75700001CF10035245534F5552434500018E0F035552490011034D79467269656E647340706F632E6E6F6B69612E636F6D00018E0F0346524F4D0011036D792E667269656E6440706F632E6E6F6B69612E636F6D00018E0F034E414D450011034D79467269656E647300018E0F0346524F4D4E414D45001103467269656E6400010101"
);

print "---\n";
print "$_\n" for dump_ud(pack "H*",
"060504158215823002F4400A00480E0100000000000000000000000000100000000000000000100000000000000000100000000000000000380000000000000003FF8000000000000000FF00000000844BFFFC7C7FFFD221000000007C00000000000000006C0000000000000000C60000000000000000820000000000000000000000000000000000000000000000060504158215823002F4400A00480E0100000000000000000000000000100000000000000000100000000000000000100000000000000000380000000000000003FF8000000000000000FF00000000844BFFFC7C7FFFD221000000007C00000000000000006C0000000000000000C60000000000000000820000000000000000000000000000000000000000000000");
print "---\n";

#2F4400A 00480E01000000000000000000000000000000000000000000000000000000001800000000000000061BC1E799C0EDB180067B6036DB018DB18000DB61F6DBC1EDB18000DB61B6D8C06DB180007B60E79B81CCF1800000000600000031800000000618000C37E000000000000000000000000000000000000000000000000000000000

print "$_\n" for dump_ud(pack "H*", 
"0605040b8423f0010601ae02056a0045c61103333331636138386662383233373031363834346638353030313962623363353240626c696e636b2e636f6d000d03626c696e636b00850362696e2f6765742f312f33333163613838666238323337303136383434663835303031396262336335322f6c656b6b657277696a662e776d6c0001036c656b6b657277696a662e776d6c000101"
);
print "---\n";
print "$_\n" for dump_ud(pack "H*", 
"060504158215823002f4400A00480E01FFF6F6FE03FFFFFFFFFFE3F5FE00FFFFFFF3FFF693FF9E7FFFFFF3FFF6B5FF9E78706793FFF696FF9E70302713FFFFFFFF9E73272213FFFFEDED9E73272493FFFFC7EB8033272593F0FFED278013272793E07FED6B9F93272793E07FED2D9F93272793E07FFFFF9F9820279FE07FFFFE1F98706793F0801FFE003FFFFF9300"
);
print "---\n";
#print "$_\n" for dump_ud(pack "H*", 
#060504158215823002F4400A00480E01000"
#0A0504158215823002f4400A
#"0B0504158215823002f4400a30303438304530314646463646364645303346464646464646464646453346354645303046464646464646334646463639334646394537464646464646334646463642354646394537383730363739334646463639364646394537303330323731334646464646464646394537333237323231334646464645444544394537333237323439334646464643374542383033333237323539334630464645443237383031333237323739334530374645443642394639333237323739334530374645443244394639333237323739334530374646464646394639383230323739464530374646464645314639383730363739334630383031464645303033464646464639333030"
#);
print "$_\n" for dump_ud(pack "H*", 
"060504158215823002f4400a00480e01f00fffffffffffffffe007e108c38421087fcff3ef6b5fbdad6b7f9e79ef6b478c2168639e79ef6b5fbd6b6aff9e79e108c385ad0b7f9e79ffffffffffffff9e79ffffffffffffff9ff9e30ee841da10f79e79ed6e6b77daf7f79e79ed6eab77da11f7cff3ed6ecb77dbd7ffe007e30ee877c210f7f00fffffffffffffff00"
);
print "$_\n" for dump_ud(pack "H*", 
"0605040b8423f0161e2530e6130416f3a086b516b780bc551e2f2edf810b527c4ec860d3b527c4053b27f0edf1f0416f3a086b516b780bc551e2f2edf81f0b8e908f0cceba0d2febce0650130b8e908f0cceba0d2febce065011"
);
print "---\n";

print "$_\n" for dump_ud(pack "H*",
"0605040b8423f0161e2530e6137fbf7cab7cf21a2c8d36fbe1f87231110b527c4ec860d3b527c4053b27f0edf1f7fbf7cab7cf21a2c8d36fbe1f8723111fbabee065013babee065011"
);
print "$_\n" for dump_ud(pack "H*",
"0605040B8423F0170601AE03056A0045C611033631303240626C696E636B2E636F6D000C0336322E3134382E3137362E33322F62696E2F6D6D632F6173736C696B65746861743F73657373696F6E3D3030303030303030303030303030303030303030303030303030303030303030000103617373206C696B652074686174000101"
);
print "$_\n" for dump_ud(pack "H*",
"06050415811581024a3a7d3585c9a585a10d85c995e51d95d1e40801ff18a6594958582d0b45e64176cbdc82c85ec17890a10bd92f42142172f4214217ae55e42642f68bd085085ec97a10a10bd82b02d0b45e64165e842242f64e5085085ed1781082895085085d25e641e42e5ee42642e4215cbdc832c958582d0b45e64176cbdc82c85ed178108289d085085d25e641e42e5ee42642e4215cbdc832"
);
